home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / faq / kjvcbibl.lha / cbible / rexx / htmlexec.thnkr < prev    next >
Text File  |  1994-05-22  |  2KB  |  94 lines
  1. /* */
  2. options results
  3. trace off
  4. parse arg str
  5. /* strip quotes */
  6.  
  7. file=""
  8. name=""
  9. pre=""
  10.  
  11. i=pos(",",str)
  12. if i > 0 then do
  13.     firstp=substr(str,1,i-1)
  14.     secondp=substr(str,i+1)
  15.     if firstp = "Thinker" then do
  16.         address "Thinker" value("secondp")
  17.         exit rc
  18.     end
  19. end
  20.  
  21. i=pos('"',str)
  22. if i > 0 then str=delstr(str,i,1)
  23. i=pos('"',str)
  24. if i > 0 then str=delstr(str,i,1)
  25.  
  26. i=pos("file://localhost/",str)  /* find prefix */
  27. if i > 0 then do
  28.     str=substr(str,18)
  29.     i=lastpos("/",str)
  30.     if i = 0 then i=lastpos(":",str)
  31.     if i > 0 then do
  32.         pre=left(str,i)
  33.         str=substr(str,i+1)
  34.     end
  35. end
  36.  
  37. /* now find ',' */
  38.  
  39. i = pos(',',str)
  40.  
  41. if i > 1 then do   /*  both file and label */
  42.     if i > 1 then do
  43.         file=substr(str,1,i-1)
  44.         str=delstr(str,1,i)
  45.         name=str
  46.     end
  47.     else do
  48.         str=delstr(str,1,1)
  49.         name=str
  50.     end
  51. end
  52. else do    /* only a name? */
  53.     if i = 0 then name=str
  54.     else name=str
  55. end
  56.  
  57. if length(file) == 0 then do 
  58.     jump label first name
  59.     exit
  60. end
  61.  
  62.  
  63. if exists(pre || file) == 0 then 
  64.     return "file '" || file || "' does not exist"
  65.  
  66.  tfile=file
  67.  
  68.  i=pos(':',tfile) 
  69.  if i > 0 then tfile=substr(tfile,i+1)
  70.  
  71.  i=pos('/',tfile)
  72.  do while i > 0 
  73.     tfile=substr(tfile,i+1);
  74.     i=pos('/',tfile)
  75.  end
  76.  
  77. thinkerfile="t:" || tfile || ".trans"
  78.  
  79. if exists(thinkerfile) == 1 then do
  80.     jump label first thinkerfile || ',' || name
  81.     exit
  82. end
  83.  
  84. create thinkerfile
  85. if rc ~= 0 then return "create failed"
  86. get origin thinkerfile
  87. import after 1 HTML pre || file
  88. if rc ~= 0 then return "Import Failed (not html)"
  89. get origin
  90. delete current
  91. save
  92. jump label first thinkerfile || "," || name
  93.  
  94.